#!/usr/bin/env ruby

$IOSRC="/Users/olabini/src/Io-2007-12-12"

failures = []
ARGF.each_line do |l|
  file = File.expand_path(File.join($IOSRC, l))
  Dir.chdir('../..') do 
    v = `./r2 '#{file}'`
    if !v.strip.empty?
      $stdout.print "F"
      $stdout.flush
      failures << ":#{file} problem: #{v}"
    else
      $stdout.print "."
      $stdout.flush
    end
  end
end

puts
puts failures
